home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / pascal / tvtool2.zip / TVAPP.INT < prev    next >
Text File  |  1993-07-20  |  4KB  |  143 lines
  1. UNIT TvApp;
  2. {$B+}
  3. {$X+}
  4. {$V-}
  5.  
  6. {$I TVDEFS.INC}
  7.  
  8. INTERFACE
  9.  
  10.  
  11. USES
  12.   App, Dialogs, Drivers, Objects, Views;
  13.  
  14.  
  15. CONST
  16.   { Palette Layout }
  17.   { 1-63 are normal palette entries }
  18.   { 64-127 are reserved by Borland }
  19.   { 128-135 are the help colors defined in HELPFILE.PAS }
  20.   {         they need to go in ahead of new colors. }
  21.   { 136-185 are TV Tool Box colors }
  22.   { 136 is the busy window color }
  23.   { 137-171 are 3D palette entries }
  24.   { 172-190 are reserved by TV Tool Box for future use }
  25.  
  26.   { 136 = Busy indicator }
  27.   { 137 = Frame normal }
  28.   { 138 = Frame shaded }
  29.   { 139 = Frame passive }
  30.   { 140 = Frame icon }
  31.   { 141 = Button normal }
  32.   { 142 = Button text }
  33.   { 143 = Button disabled text }
  34.   { 144 = Button shortcut text }
  35.   { 145 = Button shaded }
  36.   { 146 = Button default text }
  37.   { 147 = Outline normal }
  38.   { 148 = Outline shaded }
  39.   { 149 = Inputline active }
  40.   { 150 = Inputline selected text }
  41.   { 151 = Inputline arrow }
  42.   { 152 = Cluster normal }
  43.   { 153 = Cluster selected }
  44.   { 154 = Cluster shortcut }
  45.   { 155 = Cluster disabled }
  46.   { 156 = ListViewer normal }
  47.   { 157 = ListViewer focused }
  48.   { 158 = ListViewer selected }
  49.   { 159 = ListViewer divider }
  50.   { 160 = History arrow }
  51.   { 161 = History normal }
  52.   { 162 = History shaded }
  53.   { 163 = HistoryWindow scrollbar page area }
  54.   { 164 = HistoryWindow scrollbar controls }
  55.   { 165 = Scroll bar page areas }
  56.   { 166 = Scroll bar arrows/indicator }
  57.   { 167 = Static text }
  58.   { 168 = Label normal }
  59.   { 169 = Label selected }
  60.   { 170 = Label shortcut }
  61.   { 171 = InfoPane }
  62.  
  63.   CHelpColor      = #$37#$3F#$3A#$13#$13#$30#$3E#$1E;
  64.   CHelpBlackWhite = #$07#$0F#$07#$70#$70#$07#$0F#$70;
  65.   CHelpMonochrome = #$07#$0F#$07#$70#$70#$07#$0F#$70;
  66.  
  67.   CColor      =
  68.    {Busy|     Frame     |        Button         |}
  69.     #$CF#$7F#$70#$70#$70#$7F#$70#$78#$7E#$70#$7F +
  70.    {|Outline|Input Line |  Cluster      |  List Viewer  |}
  71.     #$7F#$70#$70#$07#$70#$70#$7F#$7F#$78#$70#$07#$7F#$70 +
  72.    {|  History  |Hist Wn|Sc. Bar|S T|   Label   |I P}
  73.     #$70#$7F#$70#$78#$0F#$07#$0F#$78#$70#$7F#$7E#$70;
  74.  
  75.   CBlackWhite =
  76.     #$8F#$7F#$70#$78#$70#$7F#$70#$78#$0F#$70#$7F +
  77.     #$7F#$70#$70#$07#$0F#$70#$07#$0F#$78#$70#$07#$7F#$70 +
  78.     #$70#$7F#$70#$78#$0F#$07#$0F#$78#$70#$7F#$0F#$7F;
  79.  
  80.   CMonochrome =
  81.     #$8F#$7F#$70#$78#$70#$7F#$70#$78#$0F#$70#$7F +
  82.     #$7F#$70#$70#$07#$0F#$70#$07#$0F#$78#$70#$07#$7F#$70 +
  83.     #$70#$7F#$70#$78#$0F#$07#$0F#$78#$70#$7F#$0F#$7F;
  84.  
  85.   CBusyWindow = #136#136#136#136#136#136#136#136;
  86.  
  87.  
  88. TYPE
  89.   PbxBusyWindow = ^TbxBusyWindow;
  90.   TbxBusyWindow = Object(TWindow)
  91.     Constructor Init(const AMessage : String);
  92.     Function    GetPalette: PPalette;                     Virtual;
  93.     Procedure   Show;                                     Virtual;
  94.   end;
  95.  
  96.  
  97.   PbxApplication = ^TbxApplication;
  98.   TbxApplication = Object(TApplication)
  99.     MouseVisible : Boolean;
  100.     ToggleMouse  : Boolean;
  101.  
  102.     Constructor Init;
  103.     Constructor Load(var S: TStream);
  104.     Procedure   CloseAllWindows;
  105.     Procedure   GetEvent(var Event: TEvent);              Virtual;
  106.     Function    GetPalette: PPalette;                     Virtual;
  107.     Procedure   HandleEvent(var Event: TEvent);           Virtual;
  108.     Procedure   HideBusy;
  109.     Procedure   SetMouseToggle(const Enable : Boolean);
  110.     Procedure   ShowBusy;
  111.     Procedure   Store(var S: TStream);
  112.   end;
  113.  
  114.  
  115. CONST
  116.   BusyWindow  : PbxBusyWindow = nil;
  117.  
  118.  
  119.  
  120. { TvApp registration procedure }
  121.  
  122. Procedure RegisterTVApp;
  123.  
  124.  
  125. { Stream Registration Records }
  126.  
  127. CONST
  128.   RbxBusyWindow: TStreamRec = (
  129.     ObjType : 5200;
  130.     VmtLink : Ofs(TypeOf(TbxBusyWindow)^);
  131.     Load    : @TbxBusyWindow.Load;
  132.     Store   : @TbxBusyWindow.Store
  133.   );
  134.  
  135. CONST
  136.   RbxApplication: TStreamRec = (
  137.     ObjType : 5201;
  138.     VmtLink : Ofs(TypeOf(TbxApplication)^);
  139.     Load    : @TbxApplication.Load;
  140.     Store   : @TbxApplication.Store
  141.   );
  142.  
  143.